home *** CD-ROM | disk | FTP | other *** search
/ Aminet 8 / Aminet 8 (1995)(GTI - Schatztruhe)[!][Oct 1995].iso / Aminet / comm / term / trms20e.lha / ScriptFiles.lha / ScriptDemo.scp < prev    next >
Text File  |  1995-01-28  |  21KB  |  1,069 lines
  1. /* $VER: Terminus 2.0c - ScriptDemo.scp (04.10.93) */
  2.  
  3. /*
  4. ** Copyright (C) 1992-3, John P. Radigan, All Rights Reserved, Worldwide.
  5. **
  6. **    This script demonstrates most all commands and functions present
  7. ** in the Terminus script language.
  8. **
  9. */
  10.  
  11.    dtpen = tpen
  12.    dbpen = bpen
  13.  
  14.    titlebar = off
  15.    titlestatus = off
  16.  
  17. top:
  18.    cls
  19.  
  20.    print local " ScriptDemo menu\n ---------------"
  21.    print local "  1. Operator precedence."
  22.    print local "  2. Integer functions."
  23.    print local "  3. String functions."
  24.    print local "  4. FOR loop."
  25.    print local "  5. WHILE loop."
  26.    print local "  6. REPEAT loop."
  27.    print local "  7. 200 GOTO's."
  28.    print local "  8. ONCARRIER, ONMOUSE and ONTIMEOUT."
  29.    print local "  9. CLRRECT, CLRLINE, INVLINE and GETLINE$."
  30.    print local "  A. GETINT, GETSTRING."
  31.    print local "  B. TIMER, DATE$, TIME$, TRACE."
  32.    print local "  0. Exit."
  33.    ask local "\n  Enter number to perform ", i$
  34.  
  35.    if i$ == "1"
  36.       gosub oporder
  37.       goto top
  38.    endif
  39.  
  40.    if i$ == "2"
  41.       gosub ifuncdemo
  42.       goto top
  43.    endif
  44.  
  45.    if i$ == "3"
  46.       gosub sfuncdemo
  47.       goto top
  48.    endif
  49.  
  50.    if i$ == "4"
  51.       gosub fordemo
  52.       goto top
  53.    endif
  54.  
  55.    if i$ == "5"
  56.       gosub whiledemo
  57.       goto top
  58.    endif
  59.  
  60.    if i$ == "6"
  61.       gosub repeatdemo
  62.       goto top
  63.    endif
  64.  
  65.    if i$ == "7"
  66.       gosub gotodemo
  67.       goto top
  68.    endif
  69.  
  70.    if i$ == "8"
  71.       gosub ondemo
  72.       goto top
  73.    endif
  74.  
  75.    if i$ == "9"
  76.       gosub linedemo
  77.       goto top
  78.    endif
  79.  
  80.    if i$ == "A" OR i$ == "a"
  81.       gosub getdemo
  82.       goto top
  83.    endif
  84.  
  85.    if i$ == "B" OR i$ == "b"
  86.       gosub datedemo
  87.       goto top
  88.    endif
  89.  
  90.    if i$ == "0"
  91.       tpen = dtpen
  92.       bpen = dbpen
  93.       cls
  94.       print local "End Terminus script demo.\n"
  95.       end
  96.    endif
  97.  
  98.    print local "\nUnknown menu item."
  99.    pause 1
  100.    goto top
  101.  
  102. oporder:
  103.    cls
  104.    print local " The following shows the expression to be passed to the parser, the"
  105.    print local "correct answer and the parser result.\n"
  106.    print local "-8 * 3 + 4 * 7 = 4",,,                -8 * 3 + 4 * 7 
  107.    print local "36 / 4 * 7 + 1 = 64",,,               36 / 4 * 7 + 1 
  108.    print local "10 - 6 * -2 - 5 = 17",,,              10 - 6 * -2 - 5 
  109.    print local "((((3 * 6) / 4) % 5) + 7) * 8 = 88",  ((((3 * 6) / 4) % 5) + 7) * 8
  110.    print local "80 / (-7 - 3) * 3 = -24",,,           80 / (-7 - 3) * 3 
  111.    gosub anykey
  112.    print local " The following show logical expression results in the same format.\n"
  113.    print local "10 != 12 = 1",,,                10 != 12
  114.    print local "10 AND 8 = 8",,,                10 AND 8
  115.    print local "10 OR 5 = 15",,,                10 OR 5 
  116.    print local "9 XOR 8 = 1",,,                 9 XOR 8
  117.    print local "3 XOR NOT 6 AND 15 = 10",,      3 XOR NOT 6 AND 15
  118.  
  119.    gosub anykey
  120.  
  121.    print local " And now for a mixed conditional, the expression to be evaluated is:\n"
  122.    print local "   \"string\" != \"String\" AND 12 < 24 AND (7 == (NOT 7) OR 14 == (7 * 2))\n"
  123.  
  124.    if "string" != "String" AND 12 < 24 AND (7 == (NOT 7) OR 14 == (7 * 2))
  125.       print local "Expression evaluated as TRUE."
  126.    else
  127.       print local "Expression evaluated as false."
  128.    endif
  129.  
  130.    goto anykey
  131.  
  132. fordemo:
  133.    cls
  134.    i = 0
  135.    j = 0
  136.  
  137.    print local "FOR I = 1 TO 20 demo...\n"
  138.  
  139.    for i = 1 to 20
  140.       print local " "; i;
  141.    next
  142.    print local
  143.  
  144.    gosub anykey
  145.    print local "FOR I = 1 TO 20 STEP 2 demo...\n"
  146.  
  147.    for i = 1 to 20 step 2
  148.       print local " "; i;
  149.    next
  150.    print local
  151.  
  152.    gosub anykey
  153.    print local "FOR I = 20 TO 0 STEP -2 demo...\n"
  154.  
  155.    for i = 20 to 0 step -2
  156.       print local " "; i;
  157.    next
  158.    print local
  159.  
  160.    gosub anykey
  161.    print local "NESTED FOR demo...\n"
  162.  
  163.    for i = 1 to 10
  164.       for j = 1 to 10
  165.          print local " "; i;
  166.       next
  167.       print local
  168.    next
  169.  
  170.    goto anykey
  171.  
  172. whiledemo:
  173.    cls
  174.    print local "WHILE loop conditional.\n"
  175.    i = 0
  176.  
  177.    while i < 10
  178.       i = i + 1
  179.       print local " "; i;
  180.    wend
  181.    print local
  182.    gosub anykey
  183.  
  184.    cls
  185.    print local "Nested WHILE loop conditional.\n"
  186.    i = 0
  187.  
  188.    while i < 10
  189.       j = 0
  190.       while j < 10
  191.          j = j + 1
  192.          print local " "; j;
  193.       wend
  194.       print local
  195.       i = i + 1
  196.    wend
  197.    print local
  198.    goto anykey
  199.  
  200. repeatdemo:
  201.    cls
  202.    print local "REPEAT loop conditional.\n"
  203.    i = 0
  204.  
  205.    repeat
  206.       i = i + 1
  207.       print local " "; i;
  208.    until i < 10
  209.    print local
  210.    gosub anykey
  211.  
  212.    cls
  213.    print local "Nested REPEAT loop conditional.\n"
  214.    i = 0
  215.  
  216.    repeat
  217.       j = 0
  218.       repeat
  219.          j = j + 1
  220.          print local " "; j;
  221.       until j < 10
  222.       print local
  223.       i = i + 1
  224.    until i < 10
  225.    print local
  226.    goto anykey
  227.  
  228. ifuncdemo:
  229.    cls
  230.    print local "ABS().\n"
  231.    print local "The absolute value of 30 - 50 is: ", ABS(30 - 50)
  232.    gosub anykey
  233.    print local "ASC().\n"
  234.    print local "ASCII value of the character 'A': ", ASC("A")
  235.    gosub anykey
  236.    print local "INSTR(), variation 1.\n"
  237.    print local "The position of substring TESTER in string SUBTEST is: ", INSTR("SUBTEST", "TESTER")
  238.    gosub anykey
  239.    print local "INSTR(), variation 2.\n"
  240.    print local "The position of substring TEST in string SUBTESTERED is: ", INSTR(2, "SUBTESTERED", "TEST")
  241.    gosub anykey
  242.    print local "INSTR(), variation 3.\n"
  243.    print local "The position of substring TEST in string SUBTEST is: ", INSTR("SUBTEST", "TEST")
  244.    gosub anykey
  245.    print local "LEN().\n"
  246.    print local "The length of string LONGSTRING is: ", LEN("LONGSTRING")
  247.    gosub anykey
  248.    print local "VAL().\n"
  249.    print local "The value of string 234 is: ", val("234")
  250.    goto anykey
  251.  
  252. sfuncdemo:
  253.    cls
  254.    print local "CHR$().\n"
  255.    print local "The character for ASCII value 65 is: ", chr$(65)
  256.    gosub anykey
  257.    print local "LEFT$().\n"
  258.    print local "The leftmost 5 characters of TESTSTRING is: ", left$("TESTSTRING", 5)
  259.    gosub anykey
  260.    print local "LOWER$().\n"
  261.    print local "The lowercase version of TESTSTRING is: ", lower$("TESTSTRING")
  262.    gosub anykey
  263.    print local "MID$().\n"
  264.    print local "The 5 char string starting at position 5 of TESTSTRING is: ", mid$("TESTSTRING", 5, 5)
  265.    gosub anykey
  266.    print local "RIGHT$().\n"
  267.    print local "The rightmost 5 characters of TESTSTRING is: ", right$("TESTSTRING", 5)
  268.    gosub anykey
  269.    print local "SPACE$().\n"
  270.    print local "The length of SPACE$(10) is: ", len(space$(10))
  271.    gosub anykey
  272.    print local "STR$().\n"
  273.    print local "The string of the value 234 is: ", str$(234)
  274.    gosub anykey
  275.    print local "TRIM$().\n"
  276.    print local "The trimmed length of \"TESTSTRING   \" is: ", len(trim$("TESTSTRING   "))
  277.    gosub anykey
  278.    print local "UPPER$().\n"
  279.    print local "The uppercase version of teststring is: ", upper$("teststring")
  280.    goto anykey
  281.  
  282. ondemo:
  283.    cls
  284.    print local "   The ONCARRIER demo requires a modem to be attached to the serial port and"
  285.    print local "to be able to set carrier with the command AT&C0.  The modem will then be"
  286.    print local "sent the command ATZ to reset the modem and drop carrier which will result"
  287.    print local "in the ONCARRIER command being executed.\n"
  288.    ask local "Continue [Y]/n? ", i$
  289.    print local
  290.  
  291.    if trim$(upper$(i$)) == "N"
  292.       goto ondemo1
  293.    endif
  294.    oncarrier
  295.    ontimeout goto no_modem
  296.    send "at&c0^m"
  297.    wait 3, "OK"
  298.    ontimeout
  299.    oncarrier goto dcd
  300.    wait 1
  301.    send "atz^m"
  302.    wait 3
  303.    print local "ONCARRIER failed test.\n"
  304.    goto ondemo1
  305.    
  306. no_modem:
  307.    print local "Modem didn't respond, skipping test.\n"   
  308.    goto ondemo1
  309.  
  310. dcd:
  311.    wait 1
  312.    print local "ONCARRIER passed test.\n"
  313.  
  314. ondemo1:
  315.    oncarrier
  316.    gosub anykey
  317.    cls
  318.    print local "   The ONMOUSE demo will show an '@' at the location where the mouse pointer"
  319.    print local "is at when you click the left mouse button.\n"
  320.    onmouse goto mouseclick
  321.    print local "Move mouse and click left button when ready\n"
  322.    wait 10
  323.    print local "ONMOUSE failed.\n"
  324.    goto ondemo2
  325.  
  326. mouseclick:
  327.    print local "Mouse row: " mrow " Mouse col: " mcol "\n"
  328.    srow = row
  329.    scol = col
  330.    move mrow, mcol
  331.    bpen = 3
  332.    print local "@"
  333.    bpen = dbpen
  334.    move srow, scol
  335.  
  336. ondemo2:
  337.    onmouse
  338.    gosub anykey
  339.    cls
  340.    print local "   The ONTIMEOUT demo will issue a WAIT command for one second, results will"
  341.    print local "be posted below.\n"
  342.    ontimeout goto gottimeout
  343.    wait 1
  344.    print local "ONTIMEOUT failed."
  345.    goto ondemo3
  346.    
  347. gottimeout:
  348.    print local "ONTIMEOUT passed."
  349.  
  350. ondemo3:
  351.    ontimeout
  352.    goto anykey
  353.  
  354. linedemo:
  355.    cls
  356.    print local "\n   The following demo will fill rows 10 through 22 with the letter 'E' and"
  357.    print local "then clear a rectangle starting at position 11, 21 to 21, 58.\n"
  358.    move 9, 1
  359.    tpen = 2
  360.    for i = 1 to 80
  361.       print local i % 10;
  362.    next
  363.    tpen = 3
  364.    print local
  365.    move 10, 1
  366.    for i = 10 to 22
  367.       move i, 1
  368.       print local "EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE"
  369.    next
  370.    tpen = dtpen
  371.    for i = 10 to 22
  372.       move i, 1
  373.       print local i;
  374.    next
  375.    print local
  376.    bpen = 3
  377.    clrrect 11, 21, 21, 58
  378.    bpen = dbpen
  379.    gosub anykey
  380.  
  381.    cls
  382.    print local "   The CLRLINE demo will print a line of 'E' characters at row 4 and will clear"
  383.    print local "a 20 character section starting at column 40.\n"
  384.    move 6, 1
  385.    for i = 1 to 80
  386.       print local i % 10;
  387.    next
  388.    move 7, 1
  389.    print local "EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE"
  390.    move 7, 40
  391.    bpen = 3
  392.    clrline 20
  393.    bpen = dbpen
  394.    move 9, 1
  395.    gosub anykey
  396.  
  397.    cls
  398.    print local "   The INVLINE demo will print a line of 'E' characters at line 4 in inverse"
  399.    print local "colors then will reinvert a 20 character section starting at column 30.\n"
  400.    move 6, 1
  401.    for i = 1 to 80
  402.       print local i % 10;
  403.    next
  404.    move 7, 1
  405.    tpen = 2
  406.    bpen = 3
  407.    print local "EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE"
  408.    tpen = 3
  409.    bpen = 2
  410.    move 7, 30
  411.    invline 20
  412.    move 9, 1
  413.    tpen = dtpen
  414.    bpen = dbpen
  415.    gosub anykey
  416.  
  417.    cls
  418.    print local "   The GETLINE$() demo lists some sample files and then inverts the middle line."
  419.    print local "The same line will be printed below the list to indicate that the GETLINE$()"
  420.    print local "worked.\n"
  421.    move 8,1
  422.    print local "      FILENAME       DATE     SIZE"
  423.    print local "      ----------------------------"
  424.    print local "      test.LZH       1/2/89   72323"
  425.    print local "      PIC.ZIP        2/12/90  23232"
  426.    print local "      DOC.ARC        12/30/91 97687"
  427.    move 11, 1
  428.    invline
  429.    test$ = getline$(11)
  430.    move 15, 1
  431.    print local test$
  432.    goto anykey
  433.  
  434. getdemo:
  435.    cls
  436.    x$ = "Sample string"
  437.    print local "GETSTRING Demo."
  438.    GETSTRING "GETSTRING Demo", x$
  439.    print local "you entered: "; x$
  440.    x = 500
  441.    GETINT "GETINT Demo", x, 100, 1000
  442.    print local "you entered: "; x
  443.    goto anykey
  444.  
  445. datedemo:
  446.    cls
  447.    print local "TRACE, DATE$, TIME$ and TIMER demo."
  448.    TRACE = ON
  449.    print local "Current timer value is: "; TIMER
  450.    print local "Setting timer value to 86399"
  451.    TIMER = 86399
  452.    print local "Today's date is: "; DATE$
  453.    print local "The current time is: "; TIME$
  454.    TRACE = OFF
  455.    goto anykey
  456.  
  457. gotodemo:
  458.  
  459.    cls
  460.    print local "   This demo does 200 consecutive GOTO commands in a worst case situation.\n"
  461.    goto start
  462. start200:
  463.    goto anykey
  464. start199:
  465.    print local "10"
  466.    goto start200
  467. start198:
  468.    print local "9 ";
  469.    goto start199
  470. start197:
  471.    print local "8 ";
  472.    goto start198
  473. start196:
  474.    print local "7 ";
  475.    goto start197
  476. start195:
  477.    print local "6 ";
  478.    goto start196
  479. start194:
  480.    print local "5 ";
  481.    goto start195
  482. start193:
  483.    print local "4 ";
  484.    goto start194
  485. start192:
  486.    print local "3 ";
  487.    goto start193
  488. start191:
  489.    print local "2 ";
  490.    goto start192
  491. start190:
  492.    print local "1 ";
  493.    goto start191
  494. start189:
  495.    print local "10"
  496.    goto start190
  497. start188:
  498.    print local "9 ";
  499.    goto start189
  500. start187:
  501.    print local "8 ";
  502.    goto start188
  503. start186:
  504.    print local "7 ";
  505.    goto start187
  506. start185:
  507.    print local "6 ";
  508.    goto start186
  509. start184:
  510.    print local "5 ";
  511.    goto start185
  512. start183:
  513.    print local "4 ";
  514.    goto start184
  515. start182:
  516.    print local "3 ";
  517.    goto start183
  518. start181:
  519.    print local "2 ";
  520.    goto start182
  521. start180:
  522.    print local "1 ";
  523.    goto start181
  524. start179:
  525.    print local "10"
  526.    goto start180
  527. start178:
  528.    print local "9 ";
  529.    goto start179
  530. start177:
  531.    print local "8 ";
  532.    goto start178
  533. start176:
  534.    print local "7 ";
  535.    goto start177
  536. start175:
  537.    print local "6 ";
  538.    goto start176
  539. start174:
  540.    print local "5 ";
  541.    goto start175
  542. start173:
  543.    print local "4 ";
  544.    goto start174
  545. start172:
  546.    print local "3 ";
  547.    goto start173
  548. start171:
  549.    print local "2 ";
  550.    goto start172
  551. start170:
  552.    print local "1 ";
  553.    goto start171
  554. start169:
  555.    print local "10"
  556.    goto start170
  557. start168:
  558.    print local "9 ";
  559.    goto start169
  560. start167:
  561.    print local "8 ";
  562.    goto start168
  563. start166:
  564.    print local "7 ";
  565.    goto start167
  566. start165:
  567.    print local "6 ";
  568.    goto start166
  569. start164:
  570.    print local "5 ";
  571.    goto start165
  572. start163:
  573.    print local "4 ";
  574.    goto start164
  575. start162:
  576.    print local "3 ";
  577.    goto start163
  578. start161:
  579.    print local "2 ";
  580.    goto start162
  581. start160:
  582.    print local "1 ";
  583.    goto start161
  584. start159:
  585.    print local "10"
  586.    goto start160
  587. start158:
  588.    print local "9 ";
  589.    goto start159
  590. start157:
  591.    print local "8 ";
  592.    goto start158
  593. start156:
  594.    print local "7 ";
  595.    goto start157
  596. start155:
  597.    print local "6 ";
  598.    goto start156
  599. start154:
  600.    print local "5 ";
  601.    goto start155
  602. start153:
  603.    print local "4 ";
  604.    goto start154
  605. start152:
  606.    print local "3 ";
  607.    goto start153
  608. start151:
  609.    print local "2 ";
  610.    goto start152
  611. start150:
  612.    print local "1 ";
  613.    goto start151
  614. start149:
  615.    print local "10"
  616.    goto start150
  617. start148:
  618.    print local "9 ";
  619.    goto start149
  620. start147:
  621.    print local "8 ";
  622.    goto start148
  623. start146:
  624.    print local "7 ";
  625.    goto start147
  626. start145:
  627.    print local "6 ";
  628.    goto start146
  629. start144:
  630.    print local "5 ";
  631.    goto start145
  632. start143:
  633.    print local "4 ";
  634.    goto start144
  635. start142:
  636.    print local "3 ";
  637.    goto start143
  638. start141:
  639.    print local "2 ";
  640.    goto start142
  641. start140:
  642.    print local "1 ";
  643.    goto start141
  644. start139:
  645.    print local "10"
  646.    goto start140
  647. start138:
  648.    print local "9 ";
  649.    goto start139
  650. start137:
  651.    print local "8 ";
  652.    goto start138
  653. start136:
  654.    print local "7 ";
  655.    goto start137
  656. start135:
  657.    print local "6 ";
  658.    goto start136
  659. start134:
  660.    print local "5 ";
  661.    goto start135
  662. start133:
  663.    print local "4 ";
  664.    goto start134
  665. start132:
  666.    print local "3 ";
  667.    goto start133
  668. start131:
  669.    print local "2 ";
  670.    goto start132
  671. start130:
  672.    print local "1 ";
  673.    goto start131
  674. start129:
  675.    print local "10"
  676.    goto start130
  677. start128:
  678.    print local "9 ";
  679.    goto start129
  680. start127:
  681.    print local "8 ";
  682.    goto start128
  683. start126:
  684.    print local "7 ";
  685.    goto start127
  686. start125:
  687.    print local "6 ";
  688.    goto start126
  689. start124:
  690.    print local "5 ";
  691.    goto start125
  692. start123:
  693.    print local "4 ";
  694.    goto start124
  695. start122:
  696.    print local "3 ";
  697.    goto start123
  698. start121:
  699.    print local "2 ";
  700.    goto start122
  701. start120:
  702.    print local "1 ";
  703.    goto start121
  704. start119:
  705.    print local "10"
  706.    goto start120
  707. start118:
  708.    print local "9 ";
  709.    goto start119
  710. start117:
  711.    print local "8 ";
  712.    goto start118
  713. start116:
  714.    print local "7 ";
  715.    goto start117
  716. start115:
  717.    print local "6 ";
  718.    goto start116
  719. start114:
  720.    print local "5 ";
  721.    goto start115
  722. start113:
  723.    print local "4 ";
  724.    goto start114
  725. start112:
  726.    print local "3 ";
  727.    goto start113
  728. start111:
  729.    print local "2 ";
  730.    goto start112
  731. start110:
  732.    print local "1 ";
  733.    goto start111
  734. start109:
  735.    print local "10"
  736.    goto start110
  737. start108:
  738.    print local "9 ";
  739.    goto start109
  740. start107:
  741.    print local "8 ";
  742.    goto start108
  743. start106:
  744.    print local "7 ";
  745.    goto start107
  746. start105:
  747.    print local "6 ";
  748.    goto start106
  749. start104:
  750.    print local "5 ";
  751.    goto start105
  752. start103:
  753.    print local "4 ";
  754.    goto start104
  755. start102:
  756.    print local "3 ";
  757.    goto start103
  758. start101:
  759.    print local "2 ";
  760.    goto start102
  761. start100:
  762.    print local "1 ";
  763.    goto start101
  764. start99:
  765.    print local "10"
  766.    goto start100
  767. start98:
  768.    print local "9 ";
  769.    goto start99
  770. start97:
  771.    print local "8 ";
  772.    goto start98
  773. start96:
  774.    print local "7 ";
  775.    goto start97
  776. start95:
  777.    print local "6 ";
  778.    goto start96
  779. start94:
  780.    print local "5 ";
  781.    goto start95
  782. start93:
  783.    print local "4 ";
  784.    goto start94
  785. start92:
  786.    print local "3 ";
  787.    goto start93
  788. start91:
  789.    print local "2 ";
  790.    goto start92
  791. start90:
  792.    print local "1 ";
  793.    goto start91
  794. start89:
  795.    print local "10"
  796.    goto start90
  797. start88:
  798.    print local "9 ";
  799.    goto start89
  800. start87:
  801.    print local "8 ";
  802.    goto start88
  803. start86:
  804.    print local "7 ";
  805.    goto start87
  806. start85:
  807.    print local "6 ";
  808.    goto start86
  809. start84:
  810.    print local "5 ";
  811.    goto start85
  812. start83:
  813.    print local "4 ";
  814.    goto start84
  815. start82:
  816.    print local "3 ";
  817.    goto start83
  818. start81:
  819.    print local "2 ";
  820.    goto start82
  821. start80:
  822.    print local "1 ";
  823.    goto start81
  824. start79:
  825.    print local "10"
  826.    goto start80
  827. start78:
  828.    print local "9 ";
  829.    goto start79
  830. start77:
  831.    print local "8 ";
  832.    goto start78
  833. start76:
  834.    print local "7 ";
  835.    goto start77
  836. start75:
  837.    print local "6 ";
  838.    goto start76
  839. start74:
  840.    print local "5 ";
  841.    goto start75
  842. start73:
  843.    print local "4 ";
  844.    goto start74
  845. start72:
  846.    print local "3 ";
  847.    goto start73
  848. start71:
  849.    print local "2 ";
  850.    goto start72
  851. start70:
  852.    print local "1 ";
  853.    goto start71
  854. start69:
  855.    print local "10"
  856.    goto start70
  857. start68:
  858.    print local "9 ";
  859.    goto start69
  860. start67:
  861.    print local "8 ";
  862.    goto start68
  863. start66:
  864.    print local "7 ";
  865.    goto start67
  866. start65:
  867.    print local "6 ";
  868.    goto start66
  869. start64:
  870.    print local "5 ";
  871.    goto start65
  872. start63:
  873.    print local "4 ";
  874.    goto start64
  875. start62:
  876.    print local "3 ";
  877.    goto start63
  878. start61:
  879.    print local "2 ";
  880.    goto start62
  881. start60:
  882.    print local "1 ";
  883.    goto start61
  884. start59:
  885.    print local "10"
  886.    goto start60
  887. start58:
  888.    print local "9 ";
  889.    goto start59
  890. start57:
  891.    print local "8 ";
  892.    goto start58
  893. start56:
  894.    print local "7 ";
  895.    goto start57
  896. start55:
  897.    print local "6 ";
  898.    goto start56
  899. start54:
  900.    print local "5 ";
  901.    goto start55
  902. start53:
  903.    print local "4 ";
  904.    goto start54
  905. start52:
  906.    print local "3 ";
  907.    goto start53
  908. start51:
  909.    print local "2 ";
  910.    goto start52
  911. start50:
  912.    print local "1 ";
  913.    goto start51
  914. start49:
  915.    print local "10"
  916.    goto start50
  917. start48:
  918.    print local "9 ";
  919.    goto start49
  920. start47:
  921.    print local "8 ";
  922.    goto start48
  923. start46:
  924.    print local "7 ";
  925.    goto start47
  926. start45:
  927.    print local "6 ";
  928.    goto start46
  929. start44:
  930.    print local "5 ";
  931.    goto start45
  932. start43:
  933.    print local "4 ";
  934.    goto start44
  935. start42:
  936.    print local "3 ";
  937.    goto start43
  938. start41:
  939.    print local "2 ";
  940.    goto start42
  941. start40:
  942.    print local "1 ";
  943.    goto start41
  944. start39:
  945.    print local "10"
  946.    goto start40
  947. start38:
  948.    print local "9 ";
  949.    goto start39
  950. start37:
  951.    print local "8 ";
  952.    goto start38
  953. start36:
  954.    print local "7 ";
  955.    goto start37
  956. start35:
  957.    print local "6 ";
  958.    goto start36
  959. start34:
  960.    print local "5 ";
  961.    goto start35
  962. start33:
  963.    print local "4 ";
  964.    goto start34
  965. start32:
  966.    print local "3 ";
  967.    goto start33
  968. start31:
  969.    print local "2 ";
  970.    goto start32
  971. start30:
  972.    print local "1 ";
  973.    goto start31
  974. start29:
  975.    print local "10"
  976.    goto start30
  977. start28:
  978.    print local "9 ";
  979.    goto start29
  980. start27:
  981.    print local "8 ";
  982.    goto start28
  983. start26:
  984.    print local "7 ";
  985.    goto start27
  986. start25:
  987.    print local "6 ";
  988.    goto start26
  989. start24:
  990.    print local "5 ";
  991.    goto start25
  992. start23:
  993.    print local "4 ";
  994.    goto start24
  995. start22:
  996.    print local "3 ";
  997.    goto start23
  998. start21:
  999.    print local "2 ";
  1000.    goto start22
  1001. start20:
  1002.    print local "1 ";
  1003.    goto start21
  1004. start19:
  1005.    print local "10"
  1006.    goto start20
  1007. start18:
  1008.    print local "9 ";
  1009.    goto start19
  1010. start17:
  1011.    print local "8 ";
  1012.    goto start18
  1013. start16:
  1014.    print local "7 ";
  1015.    goto start17
  1016. start15:
  1017.    print local "6 ";
  1018.    goto start16
  1019. start14:
  1020.    print local "5 ";
  1021.    goto start15
  1022. start13:
  1023.    print local "4 ";
  1024.    goto start14
  1025. start12:
  1026.    print local "3 ";
  1027.    goto start13
  1028. start11:
  1029.    print local "2 ";
  1030.    goto start12
  1031. start10:
  1032.    print local "1 ";
  1033.    goto start11
  1034. start9:
  1035.    print local "10"
  1036.     goto start10
  1037. start8:
  1038.    print local "9 ";
  1039.    goto start9
  1040. start7:
  1041.    print local "8 ";
  1042.    goto start8
  1043. start6:
  1044.    print local "7 ";
  1045.    goto start7
  1046. start5:
  1047.    print local "6 ";
  1048.    goto start6
  1049. start4:
  1050.    print local "5 ";
  1051.    goto start5
  1052. start3:
  1053.    print local "4 ";
  1054.    goto start4
  1055. start2:
  1056.    print local "3 ";
  1057.    goto start3
  1058. start1:
  1059.    print local "2 ";
  1060.    goto start2
  1061. start:
  1062.    print local "1 ";
  1063.    goto start1
  1064.  
  1065. anykey:
  1066.    ask local "\nPress <RETURN> continue.", i$
  1067.    cls
  1068.    return
  1069.